home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 016a / 4dtnt.zip / WHATYPE.BTM < prev    next >
Text File  |  1991-10-29  |  512b  |  18 lines
  1. if "%1" == "" goto help
  2. setlocal
  3. set $foo=%@upper[%1]
  4. set $wstr=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ
  5. set $i=0
  6. set $r=0
  7. :valloop
  8. set $val=%@index[%$wstr,%@substr[%$foo,%$i,1]]
  9. if %$val lt 0 quit 99
  10. if %$r le %$val set $r=%@eval[%$val+1]
  11. set $i=%@eval[%$i+1]
  12. if %$i lt %@len[%$foo] goto valloop
  13. quit %$r
  14.  
  15. :help
  16. echo Usage %@name[%0] string
  17. echo Errorlevel = number base (1 - 36) of string or 99 for not valid.
  18. quit 99